MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 


C 12 


AAI I tH A tS 
AAA tt tt HH tS tH 
tt tt a St SH Se 


L 

LLELLLELLLLLLLLL 
LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 


FE a ee a a el el el el el 


SN 
Ro ono 


**F ILE**1D**SMGPRVINP - 


SSSSSSSS_ MM MM GGGGGGGG PPPPPPPP RRRRRRRR VV VV III] NN NN PPPPPPPP 
SSSSSSSS_ MM MM GGGGGGGG PPPPPPPP RRRRRRRR VV VV III! NN NN PPPPPPPP 
S$ MMMM MMMM «GG PP PP RR RR VV VV II NN NN PP PP 
$$ MMMM MMMM 6GG PP PP RR RR VV VV I] N NN PP PP 
$$ MM MM MM «OGG PP PP RR RR VV VV I] NNNN NN PP PP 
SS MM MM MM «OGG PP PP RR RR VV vV Il NNNN NN PP PP 
SSSSSS MM MM GG PPPPPPPP RRRRRRRR VV VV IJ NN NN PPPPPPPP 
SSSSSS MM MM GG PPPPPPPP RRRRRRRR VV VV I] NN NN NN PPPPPPPP 
SS MM MM GG GGGGGG PP RR RR VV VV I] NN NNNN PP 
SS MM MM GG GGGGGG PP RR RR VV VV II NN NNNN PP 
SS MM MM GG GG PP RR RR VV VV II NN NN PP eeee 
SS MM MM OG GG PP RR RR VW VV I] NN NN PP cove 
SSSSSSSS MM MM GGGGGG PP RR RR VV III! NN NN PP eeee 
SSSSSSSS MM MM GGGGGG PP RR RR VV HII! NN NN PP eos 
LL III SSSSSSSS 
LL HII! SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII! SSSSSSSS 
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0 ZTITLE .SmeSSPRY INP - Private Input support routines’ 
0 MODULE SMGSSPRVINP . 
? {DENT = '1-001' ! File: SMGPRVINP.B32 Edit: STAN1001 
p 5 ! BEGIN 
; $ ! Sonne cene nis sa cams tons eo 
:* * 
$09 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B * 
010 1 !* DIGITAL EQUIPMENT CORPORATION, ” MAYHARD. MASSACHUSETTS. = 
oi ! it ALL RIGHTS RESERVED. : 
8018 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Bate 1 '* ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH THE * 
015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
he) 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ce 
001 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4S : i: TRANSFERRED. . 
0020 1 it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
b5 ¢ 1 :* CORPORATION. 
i® 
0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
$097 | is : 
it 1 leeeeneeenenatentearneneanennenterteetentententenrentnnnententnntnntententent 
0029 1 
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37801 ores Demag 12-868 71382 94:08:83 HeNGa tesa isacenuine oS2.1 a 38 
$ 1 0 1 I++ tigt 
; ¢ 1 1 : FACILITY: Screen Management 
3 4 : 1 ! ABSTRACT: 
3 5 4 1! The procedures in this module act as interfaces between the 
3 : 5 1! virtual displays and pasteboards and associated data structures, and 
3 00 $ 1 ! the keyboard input side of SMG. These routines are called to pass 
3 8 Bae 1 ! information about changes to the physical screen that have been 
Bee .. 038 1 ! brought about by input-related activities. 
; 40 0039 1 ! These are in a module by themselves so that they can be explicitly 
; 41 0040 1 ! Linked into programs that need them (Like WHAT) since they 
3 tg 004 } 1 will not be in the SMGSHR vector. 
3 te g04§ : ENVIRONMENT: User mode, Shared Library routines. 
; & 0045 1 ! AUTHOR: R. Reichert, CREATION DATE: 9-Mar-1983 
:; 647 0046 1! 
s 448 0047 1 ! MODIFIED BY: 
3; 69 0048 1! 
: 29 Bpen ' 1-001 - Original. Moved out of other modules. STAN 77-Mar-1984. 


Qe ot] 
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1-001 Declarations 4 et mmtiel Neri 1 =3e8 138 93:59:98 SNGRTL  SREISHEPRUINP. 2;1 —_ (33 


? ia ¥SBTTL ‘Declarations’ 

5 § | SWITCHES: 

5 055 1 

8 8 5 LINKAGES 

60 098 i : 
61 05 ! NONE 

$6 4 ! 
o7 0061 TABLE OF CONTENTS: 
65 $084 i 
6 Bpee FORWARD ROUTINE 
6 065 
o8 ite ! Private entry points: 

4 943 SMGSSINVALIDATE_DISPLAY, ! Mark contents of display as unknown 
7 0070 SMGSSREPORT_CHANGE_INSERT, ! Report change to physical 
6, BRe 4 ' screen in insert mode. 

75 007 SMGSSREPORT_CHANGE _REPLACE; ! Report change to physical 
76 0074 : screen in replaec’ mode. 
77 007 

78 0076 ! 
79 0077 ' INCLUDE FILES 

0078 ! 
0079 


defines psects, macros, tcb, 
i web, & terminal symbols 


EXTERNAL REFERENCES 
EXTERNAL 
PBD_L_COUNT, ! No. of pasteboards we currently have 


PBD_A_PBCB : VECTOR CPBD_K_MAX_PB, LONG], 
' Table of addresses of PBCB's 


PBD_V_PB_AVAIL : BITVECTOR CPBD_K_MAX_PB]; 
! Bit vector or pasteboard id numbers in use. 


EXTERNAL ROUTINE 
LIBSGE 


VM, ! Allocate heap storage 
SMGSINSERT_CHARS, ' Insert char in virtual display buffer 
! and cause output. 
SMGSSF ILL_WINDOW_BUFFER, Map all virtual display buffers to 


! the window buffer for a given PBCB 
SMGSSFLUSH_BUFFER, ! Flush any pending output to terminal 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} REQUIRE "*RTLIN:SMGPROLOG'; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
1 SMGSS$FORCE_SCROLL_REG, ! Force scroll region to specified 


De Ge Be Se Be Be Be Se Fe Se Be Se Se Se Be Se Se Se Ge Ge Se Ge Ge Se Fe Oe Ge FH Se Se Se Fe Ge Se FH Se Se SH Se SH Se SH Se Se Se Se Se Se Se Se Se Se Se Se Se Seas 


me ee ee me ee ee ee ee ae a ee ed ed aed ed sd 


Qousco coco SN NN NINA AAA AA AAA AICO 
RAN HOSS NOUR UNM ODS NOUE WN —OOWO 


oO CWOOOOOWWWHOO00 CODCOD OD0D 
SELESRELLSSSLSSRANSLSSSLSEALAVSS 
SODdQOSOOSOCOOSOSOCOCOCOSOSCOOOCCOOOOoooCooo 
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16-Sep-1984 O1: 49: 98 AX-11 Bliss-32 V4.0-74 Page 4 
14-Sep p= 1984 :0 SMGRTL.SRCJSMGPRVINP.B52;1 


- 
w 
~- 
= 
a 


EXTERNAL LITERAL 


sree ATERAL IS. 
SMG$_INVARG, 
SMG$_INVCOL, 
SMG$_INVDIS_ID, 
SMG$_INVPAS"ID, 
SMG$_INVROW; 


Fatal error in Library procedure 
Invalid argument 

Invalid column number 

Invalid virtual display id 
Invalid pasteboard id 

Invalid row number 


; } ° } 5 ! ! Lines. 

as § 1 5 1 SMGSSLOCATE_PP, ! Locate pasting packet that joins a virtual 
; : i : } i display to a pasteboard. 

; 115 9 | SMGSSMOVE_TEXT_TO_SCREEN_BUF, 

.s $ ¢ 1 SMGSSMOVE_TEXT_TO_WINDOW_BUF , Map single virtual display to 
; : : ? : ! window buffer. 

: } 5 : SMGSSOCCLUDE, Determine overlap between two rectangular 
H ' areas. 

3 : ; ; ! SMGSSMIN_UPD, ! Minimum output routine 

; 124 9 | SMGSSPUT_TEXT_TO_BUFFER; § ! Text to virtual display buffer 
.y 6 a 

. 3 ¢ 1 

; te i 

; je 4 1 

; ie Te 

s U5 6 1 

3 7 ; 7 1 

; 4 8 1 


DOGDOOOCSCOCSOOOOOOOOOOO® 


Oooo 
RPMNMNPNNNININ 2 2 oe 


pee eo lololeielolelelolololal oa! 
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; ZSBTTL ote ap tap lant yl DISPLAY = Mark qisplay as being privately used’ 
GLOBAL ROUTINE SMG SINVALIDATE_DISPLAY ( DISPLAY_ID) = 


1+ 


14+ 
: FUNCTIONAL DESCRIPTION: 


This routine is called when ever a change has been completed 
to a given virtual display and the user had previously 
written into that display on his own, without using 

SMG routines. 


Ot ed ad ed dd IO 


The virtual display must not be occluded. 
Each pasteboard to which this display is pasted is isolated and 
its window image must be redrawn. 
The new physical pasteboard cursor position gets set. 
CALLING SEQUENCE: 


ret_status.wlc.v = SMGSSINVALIDATE_DISPLAY ( DISPLAY_ID.rl.*) 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 
NONE 


WN SO ODONAUES WN “OO ODNOUNE WN" OOONOM 


Se Se Se Se Ge Se Se Se Se Ge Se Ge Se Se Ge Se oe Se Se Se Se SH Se SH Sse Se Se SH Se SH Se Se Se Se Se Sete Seesese 
ee a a a “a “nd — 5 “a Ls 9 Ls 9 a ss ss SS SY 
So I A aI O00 MOU PO DONAME UI IOD 


UFwnN—O”O 


SOOOOCOCOOOSCOOOCOOOCOCOOOCO COCO SOOOOOCOCOCOOOOOOOOCOO 


POPIMOPIPONIPONNPONPoPoponofnofporofnoneny 


Ft ek ek ek kee 


DWDONAOULSWN—-OO 
a a kk dh a dd od od 


FORMAL PARAMETERS: 
DISPLAY_ID.rl.r Display ID of virtual display. 
| 
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1-001 SMGSSINVALIDATE_DISPLAY Mark display as being 18-80-1382 93: 9:83 SMGRTL.SRCJSMGPRVINP.B52;1 : 

BEGIN : 

LOCAL ; 

oCcB REF BLOCK BYTE ° ! Addr of display control block ; 

CURR_PP : REF BLOCK L,BYTEJ, ! Addr of pasting packet under : 

! inspection : 


STATUS; ! Status of subroutine calls 


+ 
This routine is independent of buffering. 


SSMGSGET_DCB (.DISPLAY_ID, DCB); ! Get DCB address 

CURR_PP = .DCB CDCB_A_PP_NEXT); ! Start of chain of pasting 
! packets to which this display 
! is pasted. 


'¢ 
Deal with each pasteboard that this virtual display is pasted to... 


WHILE .CURR_PP NEQ DCB CDCB_A_PP_NEXT) 
BEGIN ! Overall loop 
LOCAL 
PBCB : REF BLOCK [,BYTEI, ! Address of pasteboard control 


WCB : REF BLOCK C,BYTEJ, ' Address of window control block 
TO_INDEX; ! Index into destination 


PRIPIPIPRIPIPOPINY @8 at wt at wt ot I a st YS I 


UNYSSSVERRESLSSaVenravsoSsVTe near Gow Ienk ww OOo VR Ae I OA 
10909 09 C9 SII SSNS SS NSP PAA APA AAO IIIT 


SODWNANE WN SO ODNAUN EWN 0 ODNAUE AR OOONOUNE 


PBCB = .CURR_PP CPP_A_PBCB_ADDR]; ! Select this pasteboard and WCB 
WCB = .PBCB PBtB_A_wCB); ! whose window needs rebuilding. 


TO_INDEX = .CURR_PP CPP_W_TO_INDEX]; 
INCR R FROM 1 TO .CURR_PP CPP_W_ROWS_TO_MOVE) 
BEGIN ! For all rows in this display 
Zero out the display buffer. 
CHSFILL (0 
.CURR_PP CPP_W_MOVE_LENGTH), 
-WCB CWCB_A_SCR_TEXT_BUF] + .TO_INDEX); 


INDEX | = .TO_INDEX + .WCB CWCB_W_NO_COLS]; 


POITOPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPI NII AIPINIPININIPININIPINININIPINIPNT 


Morororons 


WWII WII PIPONPONINDNY 
Oo 
SVL OLR NONE 


COOCOCOSOOOCOCSCOCOOSOSO OOOO SOOSOOOOOOOOOOOOOoOoOO 
OO 0 0000000000000 


TO 
N 


ENB ' For alT rows to move 
CURR_PP = .CURR_PP CPP_A_NEXT_DCB); ' Walk the DCB side of 
' the chain from front 
' to back. 
END; ! Overall loop 


RIMINI FELL LEE 


06 


RETURN SS$_NORMAL 


idee 
333 


22. «A? 


; Routine Size: 


SMGSSPRVINP = Pr 
SMGSSINVALIDATE 


308 eno; 


00 


EC 


93 bytes, 


ivate Inpu 
_DISPL tay © 


t support routines 
Mark display as being 1 


OFFC 00000 
50 Fs BC 00 00002 
04 BC 8 AO D1 00006 
08 12 00008 
11 AQ 91 00000 
gs 13 00011 
50 000000006 8F 4 Bapi3 
PL. gs BC 00 Beate 
57 Q AA 00 OO01F 
50 20 AA YE 000 ; 
A eek ABE 
50 14 =A 09 68 ¢ 
56 08 A 0 
58 20. CA C 33 
HOG Ee 
10 11 
6€ 09 2c 0046 
14 B64 28 
ge Be 
HR ABS 
57 Hf 0 3 
50 1 ? 6 , 


Routine Base: 


_SMGSCODE + 0000 


et 


! End of routine SMGSSINVALIDATE_DISPLAY 


-Sep-1984 


~Sep-1984 


1$: 
2s: 
3$: 


4$: 


5$: 


6$: 


a 93:09:59 


AX-11 Bliss-32 V4.0-7 
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SMGSSPRVINP tae "nbd a - Private Input support 


routines 
\1-001\ 


MGSSMOVE VFexr’ TO_WINDOW_BuF 
IN OuPD 


SMGSSPUT TO_BUFFE 

SMGS_FATERRLIB, SMG$_INVARG 
SMGS_INVCOL, SMG$_INUDIS_ID 
SMGS$_INVPAS_ID, SMGS_INVROW 


-SMGSCODE,NOWRT, SHR, PIC,2 


RG RE REARD.RIO” DISPLAY, Save R2,R3,R4,R5,- 


Tea R 
ae CRO}. "sprSPLay. ID 


68(RO), #17 

#SMG$_INVDIS_ID, RO 

a 1p, 0¢B 
R_PP 


» @20(WCB)- 


aCe SMovE TEXT_TO_SCREEN_BUF 


0210 
0264 


11 ecg, pe | 
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3 


1 ZSBTTL "SMGSSREPORT CHANGE_INSERT - Report change to screen -- insert’ 
GLOBAL ROUTINE SMGSSREPORT—CHANGE_INSERT 


paar ber ID, 
PASTEBOARD ID, 


0 
1 CHANGED_CHAR, 
§ CHANGED_ROW, 
CHANGED-COL, 
, TERMINATING CHAR 
= 


e+ 


FUNCTIONAL DESCRIPTION: 


Nous 


This routine is called to report a change made to the physicat 
screen via an input action involving insertion. The character 
identified by CHANGED_CHAR has been positioned on the screen in 
a position corresponding to the virtual display coordinates 
CHANGED_ROW and CHANGED_COL. 


TERMINATING_CHAR specifies the details of the change. 


PPPS ATI EE Be EE EE 


WDONOULS WoO 


i 

i 

i 

' 

' 

i 

i 

i 

i 

i 

i 

' 

.] 

i 

i 

i 

i 

' 

! If TERMINATING_CHAR was specified, CHANGED_CHAR has been echoed 
: in the position indicated. Futhermore, this character was 

/ followed by a TERMINATING CHAR. The original contents of the 
! Line from CHANGED_COL to Ehe right-hand edge of the virtual 

; display need to be shifted to the right by one character. The 
; new contents of CHANGED_COL+1 through the right-hand edge need 
: to be redisplayed on the screen. 

: Current cursor position is changed to reflect the effects of 
; the TERMINATING CHAR. If this new position is now beyond the 
bounds of the virtual display’s dimensions then ????. 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


CALLING SEQUENCE: 


ret_status.wlc.v = SMGSSREPORT_CHANGE_INSERT ( 
DISPLAY ID.rl.r 


Ww 


WN AA AAAI ANNA AAAI NIAI AWN NAINA ANIA ANANSI 
BREE EE & FANNIN UAIPIPIPONIPINPOPINIPYD 2 SO SO 


FAO DOONAN WIN 9 ODNO UENO ODNOU EWN (OVO ONOUS 


FIFI 


HANGED_ROW.rl.r, 
SHANGED COL.rl.r 
, TERMIRATING_CHAR.rb.r]) 
FORMAL PARAMETERS: 
DISPLAY_ID.rl.r Display id of virtual display. 


PASTEBOARD_ID.rl.r Pasteboard id. 


WPI. AAA AIA AAA AA 


OOO 


SGOOSOOCOCOOSOOOOOSOCOOCOCOSOSOCOCSCOOCOCOCSOOCOOOOOOOOOCOOOOOoOO 
a a a ee ee ee a a ed a 


BRLSSELSALAV AS SSIS AS AN SSSOUSAFERLS 


MEW OO OCOnNOu 


SOO 
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: } CHANGED _CHAR.rb.r The character that modified the screen. 
: és 1/ CHANGED_ROW.rl.r Row number within the virquet display in 
: : : which CHANGED_CHAR was written. 
; 8 1! CHANGED_COL.rl.r Column number within the virtual display 
; : if : where CHANGED_CHAR was written. 
; 30 7% 13 C, TERMINATING_CHAR.rb.r] Optional). 
; 75 1! If supplied, the terminating character 
; 304 76618! that followed CHANGED_CHAR (See 
; 08 f : functional description for meaning). 
; 4 19 { IMPLICIT INPUTS: 
; 09 ei NONE 
3 58 } | IMPLICIT OUTPUTS: ‘ 
Cif She : 
; 13 O38? { COMPLETION STATUS: : 
; 317 89 1: S$S$_NORMAL Normal successful completion ; 
3 18 90 1! SMGS_INVDIS_ID Invalid Display Id : 
; 319 my Ue SMGS_INVPAS_ID Invalid Pasteboard Id : 
; $y 3 1! SMG$_INVROW Invalid row specified 
3 $3 8 iy ; : SMG$_INVCOL Invalid column specified 
; 5 0395 | i SIDE EFFECTS: 
; 5 0 $7 } NONE 
: 327 399 | 
; 8 400 BEGIN 
; 9 401 BUILTIN 
; ? et) NULLPARAME TER; 
: 2 404 LOCAL 
; 405 DESC : BLOCK (8,BYTE), ' Local descriptor 
; rt's ST ° ' Status of subroutine calls 
3 5 40 DCB: REF $DCB_DECL, ! Addr of display control block 
; 408 PBCB : REF $PBCB_DECL, peer of pasteboard control 
; ' block. 
3 5 i PP : REF S$PP_DECL; ! Addr of pasting packet 
3 ° 41g SSMGSVALIDATE_ARGCOUNT (5, 6); ! Test for right no. of args 
; 14 2 '4 
; § ti2 : Get addresses of control blocks we need 
; 345 19 "- $SMGS$GET_DCB (.DISPLAY_ID, DCB); ' Get DCB addr. 
; 3 1 SSMGSGET~PBCB ( .PASTEBOARD ID, PBCB) 3 ' Get PBCB addr. 
; 1 IF NOT (STATUS = SMGS$ LOCATE_PP (.0CB, .PBCB, PP)) ! Get PP addr. 
; j 31 
; 350 422 


| 
RETURN (. STATUS); 
| 


+ tte 


Be Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Be Ge Ge Fe Se Ge Se Se Se Se Ge FH Se Se Ge Ge Se Se Ge Ge Se Se FH Se Se Se Se Se Se SHS Se Se Se Ge Se ee Se Se eses 


SMGSSPRVINP = Private Input support routines 1-5 Sep-1984 Ax-11 Oi ies -32 v4.0-7 P ’ 
SMCSEREPORT CHANGE. INSERT ~ Report change to sc 1 =30 71387 9}: 48: 8 SMGRTL. SRCI SMGPRVINP. 3 2;1 — (f’, 


SSMGSVALIDATE_ROW_COL (..CHANGED_ROW, ..CHANGED_COL); ! Valid Pos.? 
1+ 
Initialize our local descriptor to point to the changed character. 


DESC DSC$W_LENGTH] = 1; 

DESC [DSC$B~CLAS ss) = bécsk_cLAss.$: 
DESC DScSB~bTY PE] = DSCSK"DTYPE-T: 
DESC CDSCSATPOINTERJ= .CHANGED_CHAR: 


pet tect this chenge in ped virtual Stepney te text and attribute buffer, 
sneha ng new virtual display cursor od 

Data from the affected column to the last-1 "coluan of this line need 
to be moved one character gee it*en to the right and the change 
character inserted at the indicated position. The attributes for the 
moved bytes must be moved as well. 


IF NOT (STATUS = SMGSINSERT_CHARS ( Piel. ID, 
« CHANGED_ROW, 
; CHANGED “COL, 

DESC)) 


THEN 
RETURN (.STATUS); 
Ro NULLPARAMETER (6) 
BEGIN ! Terminator supplied 


"Saanett supplied terminator to determine effect on cursor 
_position in virtual display. 


” 
i eeeee For now pretend the terminator is a <CR>, *ee* 
t eeeee This needs to act Like a <CR><LF> pair. 
iF NOT (STATUS = SMGS$SPUT TERT _1O_SUFFER ( 
‘DCB CDCB_B_DEF_VIDEO_ATTRI, 


ZREF (CR*B + ' <CR><LF> 
.0CB COCB_B * DEF > CHAR. SET})) 


DRA AAD AANA IAAI Be Be BES BS BS BB AANA AMA AMA IN IOI 


QWSASAV LS Seon e 00 OOo WOU Butt Ooo OU PUM ODO Orr rOd 


THEN 
RETURN (. STATUS); 
END; ' Terminator. supplied 
'¢ 
i Reflect this change in the epprepr jate positions of the window screen 


NAA 


RRRRLLRLLKRLKREPRRRRRRPRRRRRRRERRRRRR RRR RRR RRR RRR RRR REE 


POPPOPIPIPIUMPINPININININIWUWA EE FEL ESE 


4 1 text and attribute buffers, including new screen cursor position. 
7 if wot (STATUS = SMGSSMOVE_TEXT_TO_WINDOW_ BUF ( .PP)) 
75 RETURN (.STATUS); 
iS 
7 '¢ 
bee te Record what has happened to screen buffer as well. 
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3n88) SMCSSREPORT CHANGE INSERT - Report change to sc 1 ~3007 1382 94:49:98 SMGRTL.SRCISMGPRVINP.B 2:1 ye (6) 
if wor (STATUS = SMGSSMOVE_TEXT_TO_SCREEN_BUF ( .PP)) 


RETURN (.STATUS); 


1+ 
Must now force the changes to be output. 


IF_.PP CPP_W_ROWS_TO_MOVE) NEQ 0 
THEN 
BEGIN 


! Assume Senege confined to single row. 
PBCB [PBCB_W_FIRST ChANED ROY? = ,.CHANGED_ROW; 
s . 


—OOONOUL WN Oo 


; PBCB [PBCB_W-LAST_CHANGED_ . «CHANGED_ROW; 
4 ! Assume ganage in row from gtyen pos. to end of Line 
5 PBCB CPBCB_W_FIRST_CHANGED _C 4 = pe BOMaES COL; 

pecs PBCB_W-LAST_CHANGED_COL] = .PBCB CPBCB_W_WIDTH); 


IWIN POPOPOPOPOPUPOPU I 2 


Dl heh ee ee at ae ee ee el ek ak kee ee ae ke ee ea ed 


$ 4 $ 
3 4 3 
3 4 3 
3 4 $ 
3 4 F 
3 4 3 
; 4 3 
3 4 3 
3 4 5 
; 04 3 
5 4 $ 
: 49 : 
3 49 : 
; 49 ; 
; 49 : 
3 rh 3 
; 199 3 
: 0498 : 
3 0499 STATUS = SMGSSMIN_UPD ( .PBCB); 3 
3 0808 ! If this virtual display is pasted to pasteboards other than the one 3 
3 050 ! identified in the call List, these additional pasteboard's window 3 
3 0504 ! buffers must be updated as well. For these additional pasteboards, 3 
3 bepe ! the changed byte in addition to the shifted remainder of the Line 3 
3 208 ! must be output -- since they did not receive the originally echoed 3 
3 825 character. : 
; $309 PP = .DCB CDCB_A_PP_NEXTI; ! Ist in chain 3 
3 Bato WHILE .PP NEQ BCB CBCB_A_PP_NEXT] ' While any packets remain... : 
3: «44 Bag BEGIN ! Loop through all pasting packets for this DCB : 
3; 441 051 LOCAL : 
3 rk bate NEW_PBCB : REF $PBCB_DECL; ! PBCB being considered : 
3; 444 0516 NEW_PBCB = .PP CPP_A_PBCB_ADDR); ! PBCB for this packet : 
> 445 0517 IF [NEW_PBCB NEQ .PBCB !"If this isn't the one we started with ; 
3; 44 0518 THEN 3 
3 44 0519 4 BEGIN ! Needs to be output F 
; 448 05 0 5 IF NOT (STATUS = SMGSSFILL_WINDOW_BUFFER (.NEW_PBCB)) ; 
3 449 521 4 HEN 3 
; 450 5 § 4 RETURN (.STATUS); 3 
3 «6451 5 4 3 
5 $26 524 4 IF .PP CPP_W_ROWS_TO_MOVE] NEQ 0 3 
3; 45 525 4 THEN 3 
3 6454 5 $ BEGIN 3 
3; 455 5 ! Assume damage confined to single row. ; 
3 $28 : 3 PBCB (PBCB_W_FIRST_CHANGED ROW) = ..CHANGED_ROW; : 
3 $2 2 PBCB CPBCB-W"LAST_CHANGED_ROW)] = ..CHANGED_ROW; : 
3 re 88 ! Assume damage in row from given pos. to end of Line 3 
: 460 5 § PBCB CPBCB_W_FIRST_CHANGED C 4 = + pe nanne’ COL; 5 
3; 461 5 PBCB CPBCB_W"LAST_CHANGED_COL] = .PBCB CPBCB_W_WIDTH); 3 
; $66 534 4 END; 

: 46 535 4 

3; «464 5 5 IF NOT (STATUS = SMGSSMIN_UPD ( .NEW_PBCB)) 
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: 465 7 4 THEN 
3 £98 RETURN (.STATUS); 
: re Z END; ! Needs to be output 
: rhe 4 PP = .PP (PP_A_NEXT_DCB]; ! Step to next packer in chain 
: rth rk END; ! Loop through alt pasting packets for this DCB 
: 47 0544 RETURN (SS$_NORMAL); 
; 47 545 END; ! End of routine SMGSSREPORT_CHANGE_INSERT 


-EXTRN SMG$_WRONUMARG 


O1FC 00000 -ENTRY SHGSSREPORT CHANGE INSERT, Save R2,R3,R4,- ; 0310 : 

58 000000006 2 f 9002 state SMGSSHIN_UPD, RB : ; 

50 6C Q 8 000 SUBB3 «#5, (AP), DIFF + 0412 : 
01 0 1 0001 CMPBséOdLFF, #1 : ; 

0 1B 0001 BLEQU : ; 

50 000000006 &8F 00 0015 HOV #SMG$_WRONUMARG, RO : : 

50 04 Bc D0 0015 1$: MOVL  @DISPLAY_ID, RO + 0417 : 

046 BC 8 AO 01 00021 CMPL  56(RO), SDISPLAY_ID : ; 

06 \ 00 6 BNEQ  2$ : ; 

1 46 Ad 91 000 CMPB 68(RO), #17 : : 

0 13 0002C BEQL 5 ; ; 

50 000000006 8F v6 900 : 2$ MOVL ¥SMG$_INVDIS_ID, RO ; 

54 04 BC DO 00036 38 MOVL § @DISPLAY_ID, DCB : ; 

50 08 BC D0 90 A MOV @PASTEBOARD. 1D, RO ; 0418 : 

000000006 00 30 D1 0045 CPL RO, PBD_L_COUNT ; 
08 000000006 90 50 £0 00049 BBS RO, PBD_V_PB_AVAIL, 5$ : ; 
0 000000006 BF BO 00051 4s: MOVL_ = ASHGS_IAVPAS_ID, RO ; 

52 0000000060040 Bd 0059 5$: MOVL  PBD_A_PBCBCROJ, PBCB : : 

04 AE F 00061 PUSHAB PP > 0419 ; 

3 DD 000 PUSHL PBCB : ; 

4 DD 000 PUSHL DCB : ; 

000000006 90 03 FB 000 CALLS @ SHGSSLOCATE_PP : F 

6 7 $f BLBC STATUS, 10$ : ; 

56 10 AC D MOVL § CHANGED_ROW, R6 > 0423 : 

6 p 7 TSTL (RO) : ; 

07 BLEG 6s F : 

66 02 Ad 10 i 7A CHPZV #0, #16, 2(DCB), (R6) : 
50 000000006 8F pO 68: MOVL = ASMGS_INVROW, RO ; ; 

57 14 as A 7S: MOVL | CHANGED_COL, R7 : ; 

° ee 

67 06 AG 10 6 is ; CHP ZV #0, #16, 6(DCB), (R7) ; 
50 000000006 8F D 9A 8S: MOVL § #SMGS_INVCOL, RO : ; 
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SMGSSREPORT_CHANGE_INSERT - Report change to -Sep- SMGR SMGPRVINP.B32;1 (6) 
04 000A RET ; 
08 AE 010E0001 =8F D6 A} 9$: MOVL  #17694721, DESC + 0428 
C AE AC AA MOVL __ CHANGED_CHAR, DESC+4 + 0431 
AE F OOOAF PUSHAB DES + 0421 
™ on Re bp 53 PUSHL BISPLAY 1D adi 
000000006 09 94 FB B CALLS #4, SMGSINSERT_CHARS : 
4 0 i BF BLBC STATUS, 12$ : 
6¢ 1 000¢ CMPB sé A), «#6 + 0448 
1F 000C¢ BLSSU _11$ : 
18 «AC 05 00¢ TSTL #4 (AP) : 
" Y CA BEQL 1$ : 
7E 30 ad 9A 000CC MOVZBL 48 (DCB) -(SP) + 0464 
04 AE OD0A 8F 3C 00000 MOVZWL #3338, 4(SP) + 0463 
04 AE OF O06 USHAB 4 (SP) : 
01 pp D PUSHL #1 + 0459 
7E 2E Ad 9A 000DB MOVZBL 46(DCB), -(SP) + 0461 
54 DD OOODF PUSHL DCB + 0460 
000000006 00 05 FB 3 CALLS #5, SMGSSPUT_TEXT_TO_BUFFER : 
5F 0 €9 O00E8 108 BLBC status, 15$ + 0459 
53 04 AF DO OOOEB 11$ MOVL PP, R + 0473 
53 DD QOEF PUSHL ; 
000000006 90 07 Fe OF1 CALLS #1, SMGS$MOVE_TEXT_TO_WINDOW_BUF : 
D 20 ES OO0F8 LBC Atus, F 
53 DD O00FB PUSHL + 0480 
000000006 00 01 FB OOFD CALLS #1, SMGSSMOVE_TEXT_TO_SCREEN_BUF ; 
71 30 E9 00104 12$:  BLBC status, 19 : 
1 OA 83 0107 TSTW 8(R ) + 0487 
15 13 OO10A BEQL 13$ : 
OOAB =C 66 80 010¢ MOVW (6), 168(PBCB) > 0491 
OOAA ¢ 66 BO 00111 MOVW (RG) 170(PBCB) + 049 
OoOAC  ¢ 67 BO 00116 MOVW  (R7). 17 (PBCB) > 049 
OOAE C¢ 5A Ag B80 O18 MOVW 90(PBCB), 174(PBCB) + 0496 
52 DD 00121 13$:  PUSHL PBCB + 0499 
68 07 FB 00123 CALLS #1, SMGS$SMIN_UPD ; 
04 AE 20 A& DO 00126 MOVL 3e(nce), PP : 0509 
5 04 AE 0 1 B14$: MOVL PP, R : 0510 
31 0 A4 i 12F MOVAB 5e(pcB), R1 : 
1 33 D1 00133 CMPL =e R33, RI ; 
13 001 BEQL Ss a$ : 
55 16 A3 00 001 MOVL 20(R3), NEW _PBCB : 051 
2 5 D4 13¢ CMPL NEwPace, PBCB : 051 
a; 13 0013F BEQL 17S ; 
DD 00141 PUSHL NFW_PBCB + 0520 
000000006 00 1 FB 00143 CALLS #1, 7SMG $F JLL_WINDOU_BUFFER ; 
28 E9 OO14A 15$ LBC TATUS, 19 F 
1 OA ; 14 TSTW (R3) + 0524 
1 1 BEQL $ : 
OAB C 66 BO 001 MOVW  (R6), 1 (PBCB) : 5 8 
OAA ¢ 66 BO 001 MOVW  (R6). 170(PBCB) : 0529 
ac (C¢ 67 BO 001 : mMOVW (R7); 17 (PBCB) ; 2 4 
OAE ¢ 5A Ag BO 001 MOVW 90(PBCB), 174(PBCB) ; 
DD 00167 16$ PUSHL NEW_ cB : 05 
68 1 FB 00169 CALLS #1, ~SMGSS$MIN_UPD : 
04 AE a fe Soiee 17s: Aber TATUs, 19 : 0541 
B6 11 00173 BRB 18 : neat 


thane 
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50 

377 bytes, Routine Bas 
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9B 13:09: % 


MOVL 
RET 


1, RO 


AX-11 Bliss-32 V4.0-7 
SMGRTL. BR C SMGPRVINP. 8 2;1 


on 


Bee Ge Be Oe Se Se Se Se Be Ge Se Se Se Fe Ge Se Se Be Se Se Ge Ge Se Ge Ge Ge Ge Ge Se Se Fe Se Ge Ge Se FF Sse Se Se Se Se Se SF Se Se Se Se Se Se Se Se Se Se Se ee ee 


12 

SMGSSPRV INP SMGSSPRVINP = Private Input support routines 16-56 -1984 01:10:09 AX-11 Bliss-32 V4.0-74 Page 15 

1-001 SMGSSREPORT_ CHANGE. REPLACE - Report change to s 1 =3ep-19 4 93:09:98 SMGRTL.SRCJSMGPRVINP.B52;1 ° (7) 

; 47 af 1 ZSBTTL ‘SMGSSREPORT CHANGE_REPLACE - Report change to screen -- replace’ ; 
; arf 248 GLOBAL ROUTINE SMGSSREPORT—CHANGE_REPLA e pa : 
: 479 229 1 PASTEBOARD_ID, ‘ 
; 480 2 1 NUM_CH : REF VECTOR f-WORD,. : 
; 481 5 1 CHANGED_CHARS : REF VECTOR [,BYTEJ, ; 
> 48 553 1 CHANGED_ROW, ‘ 
; 48 554 1 CHANGED COL, . 
3; 4484 822? 1 TERMINATING CHAR ; 
; 485 228 1 d= ; 
; 486 0557 1 !+4 3 
3 ret 0885 : FUNCTIONAL DESCRIPTION: : 
; 489 560 1! This routine is called to report a change made to the physical : 
; 490 561 1! screen via an input action involving replacement. The . 
; 491 266 1} characters identified by CHANGED_CHARS and NUM_CHARS have been ; 
; 49 5635 1! positioned on the screen in a position corresponding to the : 
3 rt beee ! } virtual display coordinates CHANGED_ROW and CHANGED_COL. : 
; ree 8208 ! TERMINATING _CHAR specifies the details of the change. : 
; 497 0568 1! If TERMINATING_CHAR has not been specified, then the changed : 
; 498 b295 1! characters have been echoed in the position indicated. No ; 
; 499 570 1! further output is required. Just need to update internal data : 
; 500 0571 1! bases to reflect that change. Current cursor position is $ 
3; 501 b258 1! changed to reflect that beyond the changed text. If this new 3 
3 206 0575 1! position is now beyond the bounds of the virtual display's F 
; aor bese : dimensions then ?????. : 
; 505 0576 1! If TERMINATING_CHAR was specified, the changed characters have 3 
; 506 0577 1! been echoed in the positions indicated. Futhermore, these F 
; 507 0578 1! character were followed by a TERMINATING_CHAR. Just need to 3 
; 508 0579 1! update internal data bases to reflect that change. Current 3 
; 509 0580 1! cursor pret tion is changed to reflect the effects of the 3 
; 510 0581 1! TERMINATING CHAR. If this new position is now beyond the F 
3 313 B286 } : bounds of the virtual display's dimensions then ????. : 
: 218 0584 1 ! CALLING SEQUENCE: é 
; 514 bege 1! 3 
s SIS 0586 1! ret_status.wlc.v = SMGSSREPORT_CHANGE REPLACE ( 3 
: 516 587 1! DISPLAY_ID.rl.r 3 
: 517 588 1 | PASTEBOARD_1D.rl.r, ; 
; 518 589 1! NUM_CHARS.fwu.r, 3 
3 a8 8230 1! HANGED_CHARS.rab.r 3 
; 520 591 1! »CHANGED_ROW.rl.r ; 
; 521 B26 1! CHANGED COL.rl.r 3 
; $$ 5935 1! , TERMINATING CHAR. rb.r]) : 
: 24 23¢ : } FORMAL PARAMETERS: : 
3 H 238 : DISPLAY_ID.rl.r Display id of virtual display. : 
3 509 44 : : PASTEBOARD_ID.rl.r Pasteboard id. ; 
; +8 600 } : NUM_CHARS.rwu.r The number of characters that changed. : 
; 3 1 one 1: CHANGED_CHARS.rab.r Address of the characters that modified 3 
s $32 603 1! the screen. ; 
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att SMGSSREPORT _CHANGE REPLACE - Report change to s 1 =3007 138% 93:49:98 SMGRTL. RCISMGPRVINP.B 2:1 te (7) 

3 3 604 1! ; 
3 4 605 1! CHANGED_ROW.rl.r Row number within the virtual display in ; 
: 5 $ : which CHANGED_CHARS were written. : 
: : O88 1 i CHANGED _COL.rl.r Column number within the virtual display : 
; 5 of } where CHANGED_CHARS were written. : 
: 540 rat 1 / C, TERMINATING _CHAR.rb.r] FOpt tonal). 3 
; 541 ol¢ 1! If supplied, the terminating character 3 
: 246 61 1! that followed py mg A (See 3 
: rh Bete : functional description for meaning). : 
3 sus dete 1 { IMPLICIT INPUTS: ; 
Bee EE ae : 
i 349 0620 | | IMPLICIT OUTPUTS: 3 
: 231 06 ¢ 1 NONE ; 
: 338 06 4 ' COMPLETION STATUS: : 
; 555 0626 1} SS$_NORMAL Normal successful completion ; 
: 556 0627 1! SMGS_INVDIS_ID Invalid Display Id ; 
3 22f 0628 1! SMG$_INVPAS_ID Invalid Pasteboard Id 3 
:; ie 0629 1! SMG$_INVROW Invalid row specified : 
3 228 Bost } SMG$_INVCOL Invalid co.umn specified ; 
: 561 0652 1 ' SIDE EFFECTS: : 
3 20¢ 0633 1! 3 
; 3 0634 1! NONE 3 
: 564 0635 1 !-- 3 
: 565 0636 1 3 
; 566 0637 BEGIN 3 
: 567 0638 BUILTIN 3 
: 568 0639 NULLPARAMETER; 3 
: 39 beet LOCAL 
; 571 0642 STATUS, ' Status of subroutine calls : 
Me aie tect cet 7 
; . ' Working co 3 
: one 645 otB : REF $0CB DECL ! addr of display control block ‘ 
; ef? e286 PBCB : REF BLOCR (,BYTE), Agdr of pasteboard control : 
3 ' block. 3 
: 3f§ 648 WCB : REF BLOCK (,BYTE), ' Address of window block 3 
3 278 eh PP : REF BLOCK (,BYTEJ; ! Addr of pasting packet. : 
; 386 651 SSMGSVALIDATE_ARGCOUNT (4, 7); ! Test for right no. of args ; 
Bo Beh. : 
; 388 o28 Get addresses of control blocks needed. : 
: 585 696 "- $SMGSGET_DCB (.DISPLAY_ID, DCB); ' Get DCB addr. : 
; 86 65 SSMGSGET~PBCB ( .PASTEBOARD ID, PBCB) ; i Get PBCB addr. : 
; 44 028 IF NOT (STATUS = SMGS$ LOCATE_PP (.0CB, .PBCB, PP)) ! Get PP addr. : 
: 589 0660 RETURN (STATUS); : 

} 


12 
MGSSPRVINP SHGSSPRVINP = Private Input support rout{ 168 “1984 04:10: Ak=11 BLiss-32_V4.0-74 7 
781 EOREPLACE ~ Report change t ep-1984 13:09:59 1 SRESSMGPRVINP.B82;1 dee 


mo 
_—= 


SMGSSREPORT_CHANGE_REPLACE = Report change to s 14-Sep-19 SMGR 
; 30 1 ; 
; 1 IF NOT NULLPARAMETER (5) é 
; 3 ra THEN $ 
; 59 664 BEGIN $ 
; 594 665 C_ROW = ..CHANGED_ROW:; ; 
: 595 $6 pte CDCB_W_CURSOR-ROW) = .C_ROW; : 
; 39 66 ELSE 5 
; 38 re C_ROW = .DCB CDCB_W_CURSOR_ROW); : 
; 600 671 IF NOT NULLPARAMETER (6) : 
: 601 ue THEN 3 
; 60 7 IN $ 
; 60 0674 C fob = ,.CHANGED_COL; , 
; 604 0675 DB COCB_W_CURSOR-COL) = .C_COL; ; 
; 605 b078 END 3 
: o06 67 ELSE F 
; ret $078 C_COL = .DCB CDOCB_W_CURSOR_COL]; ; 
; 609 0680 SSMGSVALIDATE_ROW_COL (.C_ROW, .C_COL); ! Valid posit? 3 
: 610 0681 ; 
s $61) 068 '¢ F 
3 olg po8? Reflect this change in the virtual display text and attribute buffers. : 
; 614 peas F 
; 615 4) + 3 
; 616 068 ! Invalidate physical cursor position. F 
; 617 88 ! This will force output to begin with a direct cursor : 
; 618 689 2 ! movement to the proper place. ; 
: 619 Bee le 3 
: 630 91 F 
$ 62) 069 WCB = .PBCB CPBCB_A WCB); : 
; 6 3 69 WCB CWCB_W_OLD_CUR_ROw] = 0; ; 
: e Z re) WCB CWCB_W_OLD_CUR_COLJ = 0; : 
; 625 4) IF NOT (STATUS = SMGSSPUT_TEXT_TO_BUFFER ( $ 
; 626 069 .0CB, 3 
: 627 0698 .0CB COCB : DEF _VIDEO_ATTRI, ; 
; 628 0699 »NUM_CHARS(LO 3 
: 629 0700 . CHANGED_ CHAR 5 
; 630 701 “DCB COCB_B_DEF _CHAR_SET])) ; 
3 631 7 ¢ THEN 3 
; ? ¢ A Z RETURN (.STATUS); : 
; 6 705 IF NOT NULLPARAMETER (7) : 
3 $3? A THE 3 
3 636 A BEGIN ! Terminator supplied : 
3; 638 +59 ! Inspect supplied terminator to determine effect on cursor 3 
3 $73 oy posicion in virtual display. : 
3; 641 Ar 4 IF NOT (STATUS = SMGSSPUT_TEXT_TO_BUFFER ( FY 
3 o46 713 4 .0CB, 3 
3; 464 714 4 DCB COCB_B_DEF _VIDEO_ATTRI, : 
3: 644 715 4 3 
: 645 16 4 ZREF (CR*B + LF) ' <CR><LF> ; 
3; 646 71 4 -0CB COCB_B_DEF_CHAR_SETJ)) : 
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; 647 71 EN 3 
; 648 71 RETURN (. STATUS); 3 
; o08 4 : ND; ' Terminator supplied ; 
: e31 7 é \+ : 
s 6 § 7 i Reflect this change in the appropriate positions of the window ; 
; oe? f ¢ a text and attribute buffers, including new screen cursor position. : 
: 635 4 § , IF NOT (STATUS = SMGSSMOVE_TEXT_TO_WINDOW_BUF ( .PP)) : 
; 637 728 RETURN (. STATUS); ; 
: §36 730 2 16 : 
: re¢ 4 1 q Update screen buffers as well. : 
; 66¢ 07 : IF NOT (STATUS = SMGSS$MOVE_TEXT_TO_SCREEN_BUF ( .PP)) : 
; 66 0734 THEN 3 
3 re¢) Bf 5 RETURN (.STATUS); : 
: 666 07 $ 1+ F 
3; 667 0738 i If this virtual display is pasted to pasteboards other than the one : 
; 668 0739 i identified in the call List, these additional pasteboard's window 3 
; 669 0740 i buffers must be updated as well. for these additional pasteboards, : 
; 670 0741 i the changed bytes must be output -- since they did not receive the 3 
3 of) 544 ; originally echoed characters. . 
: 67 0744 2 PP = .DCB CDCB_A_PP_NEXT); ! Ist in chain : 
; ore are? UMILE’. .PP NEQ BCB CBOCB_A_PP_NEXT) While any packets remain... : 
: 676 b729 BEGIN ! Loop through all pasting packets for this DCB : 
: 677 0748 LOCA ; 
3 ors 3694 NEW_PBCB : REF $PBCB_DECL; ! PBCB being considered : 
: 680 0751 NEW_PBCB = .PP CPP_A pace _ADDRI ! PBCB for this packet : 
; 681 O79¢ IF [NEW_ PBCB NEG .PBCB '~If this isn't the one we started with ; 
; 68 75 THEN ; 
; 68 754 4 BEGIN eeds usput 3 
; eRe 23? ? IF NOT (STATUS™ ° Sachse itt’ WINDOW BUFFER (.NEW_PBCB)) : 
: 686 139 4 RETURN (. STATUS); : 
; 688 759 4 IF .PP CPP_w_ROWS_TO_MOVE) NEQ 0 ; 
; 689 760 4 THEN 3 
; 690 761 BEGIN 3 
; 691 76 ' Assume gnege confined to single row F 
; 69 76 NEW_ PBCB CPBCB_W_FIRST_CHANGED_ ROW] = °C ROW; : 
3 o37 ree NEW-PBCB CPBCB_W_LAST_CHANGED_ROW) = .C_ROW; : 
; 695 i ' Assume pach w in row from foto ae: to end of Line : 
3 $96 76 NEW_ PBCB (PBCB_W_FIRST Sees D_CcO COL; F 
; 69 76 NEW-PBCB CPBCB_W-LAST_CHA 3 
; 698 6 ANEG Oatch CPBCB_ W_WIDTH); g 
3 34 roy ? END; : 
; 701 uy ; IF NOT (STATUS = SMGSSMIN_UPD (.NEW_PBCB)) 3 
: 708 0774 4 RETURN (.STATUS); : 
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1 SMGSSREPORT_CHANGE_REPLACE = Report change to s 14-Sep-1 SMGRTL.SRCJSMGPRVINP.B52;1 ) ; 
> 704 775 4 
; f 5 ah END; ! Needs to be output 
®. a4 PP = .PP (PP_A_NEXT_DCB); ! Step to next packer in chain 
08 119 END; ! Loop through all pasting packets for this DCB 
: 710 781 RETURN (SS$_NORMAL); 
; «6711 782 END; ! End of routine SMGSSREPORT_CHANGE_REPLACE 


01FC 00000 ENTRY SHGSSREPORT CHANGE _REPLACE, Save R2,R3,R4,- ; 0548 
58 000000006 00 9E 0000 MOV SMGSSPUT. TEXT_TO_BUFFER, R8 : 
E f 000 SUBL #8, ; 
50 6¢ 4 000 SUBB3 «#4, (AP), DIFF + 0651 
0 0 91 0001 CMP DIFF, #3 : 
08 18 001 BLEQU 1$ : 
50 000000006 8F 00 00015 MOV #SMG$_WRONUMARG, RO : 
04 0001¢ RET : 
50 04 BC DO 0001D 1s: MOVL  @DISPLAY_ID, RO + 0656 
046 BC 8 AO D1 00021 CMPL 56(RO), SDISPLAY_ID : 
06 12 000 6 BNEQ 2$ : 
11 44 AO 91 000 CMPB 68(RO), #17 : 
08 13 0002C BEQL $ F 
50 000000006 8F 00 000 : 2s: MOVL §§ #SMG$_INVDIS_ID, RO F 
04 000 RET 3 
53 04 BC dO 00036 3s: MOVL § @DISPLAY_ID, DCB : 
50 08 BC DO O003A MOVL § @PASTEBOARD.1D, RO + 0657 
11 19 0003 BLSS 4 : 
000000006 00 50 D1 0004 CMPL RO, PBD_L_COUNT : 
08 14 0004 er ; 
08 000000006 90 0 £0 00049 BBS RO, PBD_V_PB_AVAIL, 5$ : 
000000006 8F BO 0051 4$: MOVL #SMGS_IRVPAS“ID, RO : 
55 0000000060040 00 0059 5$: MOVL  PBD_A_PBCBCROJ, PBCB : 
04 AE 9F 00061 PUSHAB PP > 0658 
BB 00064 PUSHR #*M<R3,R5> : 
000000006 90 FB 0066 CALLS #3, SMGSSLOCATE_PP ; 
: 0 $0 BLBC STATUS, 14$ : 
05 6c 91 00 CMPB AP), #5 > 0662 
OF 1F 0007 BLSSU F 
14 AC D 7 (AP) : 
OA 1 78 BEQL 3 
5¢ 14 BC 00 O007A MOVL § @CHANGED_ROW, C_ROW > 0665 
28 OA 36 80 O007E OV ROW, 40(DCB) ; Oe8s 
56 28 «AS 3C $: MOVZWL 40(DCB), C_ROW : 066 
06 C HF $F: a (AP), #6 ~ > 0671 
F iF BLSSU ; 
18 «AC p 4 (AP) ; 
OA EQL 3 
an Ab as °) BD 0009 move ecCOL eeztpce) : Obie 
4 9A Ss : ee 
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56 02 A3 10 
50 000000006 8F 

57 
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SMGRTL.SRCJSMGPRVINP.B52; 1 
42(0(B), C_COL 
C_ROW 


Hi #16, 2(DCB), C_ROW 
#SMGS_INVROW, RO 

OL 

#16, 6{DCB), C_COL 

#SMGS$_INVCOL, RO 
Neale wcB 

48(D¢B), =(SP) 
CHANGED CHARS 
CHARS, -(SP) 
tecptB), -(sP) 
SMGSSPUT_TEXT_TO_BUFFER 
Sthrus, 178 


46(DCB), (SP) 


SMGS$$PUT_TEXT_TO_BUFFER 
a US, 21$ 


SHGSSMOVE _TEXT_TO_WINDOW_BUF 
StAtUs 


Fi. sncssnove, TEXT_TO_SCREEN_BUF 
B2(DCB5 PP 
Bon R1 


S0inu) uty pace 
198" 


wi eosR “SHGSSF ILL_UINDOW_BUFFER 
TATUS, 21 


W_PBCB) 


_—n 
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Ll RVINP MGSSPRVINP = Pr - -0- 
PGRN SRGEGEVGcaetAolSRe “wept ERuSoeE. « HEREECIEE CURIOS WMGLLMAESGRANS Hon 
DD 00166 188: PUSH N : 0772 
sasneeell I 04: SOOM SET a : 
04 =A 172 198: MOVL : 077 
17 BRB 3 074 
50 ? 17 itt MOVL #1, RO ; 0781 
4 00178 21$: RET : 0782 


; Routine Size: 380 bytes, Routine Base: _SMGSCODE + 0106 


3; Ti 0783 1 !<BLF/PAGE> 


roe 


SMGSSPRVINP - Private 
SMGSSREPORT_CHANGE_R 


Eeplnput.tupport routines 18-bep-1964 01:10:09 


AX-11 Bliss-32 V4.0 
SMGRTL.SRC SMGPRVINP. if 2;1 


: Phe Ores 1 END ! End of module SMGSSPRVINP 
716 786 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_SMGSCODE 850 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eoccee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
Stititry? $ sve. teseram et -L32;1 9776 y 0 581 00:01.0 
“$255$DUA28: RTL.OBJIR Mod ae 36 0 0 4 00:00.1 
~$588$UA 8: SmCRIL, OBJJSMGLIB.L32;1 469 38 8 3 00:00.4 
COMMAND QUALIFIERS 
PLISS/CHRCK CF LELD, [METIAL -OPT IMI ZED /MOTRACE/L 1So1. 188: SHGPRYINP/OBJ0OBIS: SREPRY INP MSRC$: SMGPRVINP/UPDATE=(ENHS: SMGPRVINP 
Size aes w + 0 data bytes 
Run Time: 1 
Elapsed Time 01:1 
Lines/CPU Min: 557° 
Lexemes/CPU-Min: 16151 
Memory Used: 162 pages 


Compi.ation Complete 
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